home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE02 / XTOOLS / XTOOL.ZIP / MEMTABLE.INT < prev    next >
Encoding:
Text File  |  1995-05-28  |  861 b   |  31 lines
  1. {*******************************************************}
  2. {                                                       }
  3. {       xTool - Component Collection                    }
  4. {                                                       }
  5. {       Copyright (c) 1995 Stefan B÷ther                }
  6. {                                                       }
  7. {*******************************************************}
  8. unit MemTable;
  9.  
  10. interface
  11.  
  12. uses
  13.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  14.   Forms, Dialogs, DB, DBTables,
  15.  
  16.   DbiTypes, DbiProcs;
  17.  
  18. type
  19.   TMemTable = class(TTable)
  20.   private
  21.     procedure EncodeFieldDesc(var FieldDesc: FLDDesc;
  22.       const Name: string; DataType: TFieldType; Size: Word);
  23.   protected
  24.     function CreateHandle: HDBICur; override;
  25.   public
  26.   published
  27.   end;
  28.  
  29. procedure Register;
  30.  
  31.